home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t7.d64 / BASIC_PRINT < prev    next >
Text File  |  2009-01-18  |  421b  |  20 lines
  1.     1 !program prints a file
  2.     5 on eof ignore 
  3.    10 open #9,"apldata3",output 
  4.    20 open #8,"apldata2",input 
  5.    25 input #8,b$
  6.    30 input #8,a$
  7.    40 if io_status$="eof" then go to 120
  8.    50 if a$="  0    0" then go to 30
  9.    80 if str$(a$,1,1)=chr$(10)
  10.    84 print #9,str$(a$,2,79)
  11.    85 print a$
  12.    86 go to 30
  13.    87 endif 
  14.    90 print #9,a$
  15.    95 print a$
  16.   105 go to 30
  17.   125 close #9
  18.   130 close #8
  19.   140 end 
  20.